program testVariable;

class testVariable

BEGIN
   VAR aa : integer;
      
FUNCTION testVariable; 
BEGIN
   aa := 3;
   Print aa
   
END
   
END   
.

